From: Richard M. Stallman Date: Wed, 3 Sep 1997 22:30:48 +0000 (+0000) Subject: (find-tag-tag): Pass default to completing-read. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~79340 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ab685b6b9f8768aeae44bdd764d8e22c2944134e;p=emacs.git (find-tag-tag): Pass default to completing-read. --- diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index e66d12d07f2..a16cc974986 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -683,7 +683,8 @@ Assumes the tags table is the current buffer." (spec (completing-read (if default (format "%s(default %s) " string default) string) - 'tags-complete-tag))) + 'tags-complete-tag + nil nil nil nil default))) (if (equal spec "") (or default (error "There is no default tag")) spec)))